home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / bslmrgs1.zip / DOIT.BAT < prev    next >
DOS Batch File  |  1992-07-03  |  6KB  |  277 lines
  1. ;echo off
  2.  
  3. echo RBBS batch file to upgrade RBBS v17.4 with .MRGs using QB3.0
  4.  
  5. :Start
  6.  
  7. if not exist D:\QB3\BLED.EXE goto NoBLED
  8.  
  9. :CBled0
  10.  
  11. if not exist CVAR%1.BAS goto CBled1
  12. if exist CNFG-VAR.BAS del CNFG-VAR.BAS
  13. ren CVAR%1.BAS CNFG-VAR.BAS
  14.  
  15. :CBled1
  16.  
  17. if not exist CONFIG.BAS goto CBled2
  18. if not exist CNFG%1.MRG goto CBled2
  19. D:\QB3\BLED /B/L CONFIG.BAS CNFG%1.MRG CNFG%1.BAS
  20. del CONFIG.BAS
  21. del CNFG%1.MRG
  22. ren CNFG%1.BAS CONFIG.BAS
  23.  
  24. :CBled2
  25.  
  26. if not exist CNFG-SUB.BAS goto RBled0
  27. if not exist CSUB%1.MRG goto RBled0
  28. D:\QB3\BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS
  29. del CNFG-SUB.BAS
  30. del CSUB%1.MRG
  31. ren CSUB%1.BAS CNFG-SUB.BAS
  32.  
  33. :RBled0
  34.  
  35. if not exist RVAR%1.BAS goto RBled1
  36. if exist RBBS-VAR.BAS del RBBS-VAR.BAS
  37. ren RVAR%1.BAS RBBS-VAR.BAS
  38.  
  39. :RBled1
  40.  
  41. if not exist RBBS-PC.BAS goto RBled2
  42. if not exist R-PC%1.MRG goto RBled2
  43. D:\QB3\BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS
  44. del RBBS-PC.BAS
  45. del R-PC%1.MRG
  46. ren R-PC%1.BAS RBBS-PC.BAS
  47.  
  48. :RBled2
  49.  
  50. if not exist RBBSSUB1.BAS goto RBled3
  51. if not exist RSB1%1.MRG goto RBled3
  52. D:\QB3\BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS
  53. del RBBSSUB1.BAS
  54. del RSB1%1.MRG
  55. ren RSB1%1.BAS RBBSSUB1.BAS
  56.  
  57. :RBled3
  58.  
  59. if not exist RBBSSUB2.BAS goto RBled4
  60. if not exist RSB2%1.MRG goto RBled4
  61. D:\QB3\BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS
  62. del RBBSSUB2.BAS
  63. del RSB2%1.MRG
  64. ren RSB2%1.BAS RBBSSUB2.BAS
  65.  
  66. :RBled4
  67.  
  68. if not exist RBBSSUB3.BAS goto RBled5
  69. if not exist RSB3%1.MRG goto RBled5
  70. D:\QB3\BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS
  71. del RBBSSUB3.BAS
  72. del RSB3%1.MRG
  73. ren RSB3%1.BAS RBBSSUB3.BAS
  74.  
  75. :RBled5
  76.  
  77. if not exist RBBSSUB4.BAS goto RBled6
  78. if not exist RSB4%1.MRG goto RBled6
  79. D:\QB3\BLED /B/L RBBSSUB4.BAS RSB4%1.MRG RSB4%1.BAS
  80. del RBBSSUB4.BAS
  81. del RSB4%1.MRG
  82. ren RSB4%1.BAS RBBSSUB4.BAS
  83.  
  84. :RBled6
  85.  
  86. if not exist RBBSSUB5.BAS goto ABled1
  87. if not exist RSB5%1.MRG goto ArgTest
  88. D:\QB3\BLED /B/L RBBSSUB5.BAS RSB5%1.MRG RSB5%1.BAS
  89. del RBBSSUB5.BAS
  90. del RSB5%1.MRG
  91. ren RSB5%1.BAS RBBSSUB5.BAS
  92.  
  93. :ArgTest
  94.  
  95. shift
  96. if %1==Y goto RBBSTest
  97. if %1==y goto RBBSTest
  98. if %1==N goto End
  99. if %1==n goto End
  100. if %1?==?  goto End
  101. goto CBled0
  102.  
  103. :RBBSTest
  104.  
  105. if not exist RBBS-PC.BAS goto NoPC
  106. if not exist RBBSSUB1.BAS goto NoSUB1
  107. if not exist RBBSSUB2.BAS goto NoSUB2
  108. if not exist RBBSSUB3.BAS goto NoSUB3
  109. if not exist RBBSSUB4.BAS goto NoSUB4
  110. if not exist RBBSSUB5.BAS goto NoSUB5
  111. if not exist RBBS-VAR.BAS goto NoRVAR
  112.  
  113. if not exist QB.EXE goto NoQB
  114. if not exist BCOM30.LIB goto NoBCOM
  115. if not exist LINK.EXE goto NoLINK
  116. if not exist GWCOM.OBJ goto NoGWCOM
  117. if not exist 10-NET.OBJ goto No10
  118. if not exist BDRIVEC2.OBJ goto NoBD
  119. if not exist FOSSCOMM.OBJ goto NoFOSS
  120. if not exist GIVEBK31.OBJ goto NoGIVE
  121. if not exist PC-NET.OBJ goto NoPCNET
  122. if not exist QBARCV6.OBJ goto NoQBARCV
  123. if not exist RBBSDV.OBJ goto NoDV
  124. if not exist RBBSML.OBJ goto NoML
  125. if not exist RBBSUTIL.OBJ goto NoUTIL
  126. if not exist XMODEM.OBJ goto NoXMOD
  127. if not exist RBBSHS.OBJ goto NoHS
  128. if not exist BASNOV.OBJ goto NoNOV
  129. if not exist ANSI17.OBJ goto NoANSI
  130.  
  131. :RCompile
  132.  
  133. echo Compiling RBBS-PC.BAS...
  134. D:\QB3\QB RBBS-PC.BAS,RBBS-PC,NUL,/O/E/S/C:4096;
  135. echo Compiling RBBSSUB1.BAS...
  136. D:\QB3\QB RBBSSUB1.BAS,RBBSSUB1,NUL,/X/O;
  137. echo Compiling RBBSSUB2.BAS...
  138. D:\QB3\QB RBBSSUB2.BAS,RBBSSUB2,NUL,/O/E;
  139. echo Compiling RBBSSUB3.BAS...
  140. D:\QB3\QB RBBSSUB3.BAS,RBBSSUB3,NUL,/O/E;
  141. echo Compiling RBBSSUB4.BAS...
  142. D:\QB3\QB RBBSSUB4.BAS,RBBSSUB4,NUL,/O/E;
  143. echo Compiling RBBSSUB5.BAS...
  144. D:\QB3\QB RBBSSUB5.BAS,RBBSSUB5,NUL,/O/E;
  145.  
  146. :DoLink
  147.  
  148. if exist LINK3.DAT del LINK3.DAT
  149.  
  150. echo RBBS-PC+          >> LINK3.DAT
  151. echo RBBSSUB1+         >> LINK3.DAT
  152. echo RBBSSUB2+         >> LINK3.DAT
  153. echo RBBSSUB3+         >> LINK3.DAT
  154. echo RBBSSUB4+         >> LINK3.DAT
  155. echo RBBSSUB5+         >> LINK3.DAT
  156. echo GWCOM.OBJ+        >> LINK3.DAT
  157. echo QBARCV6+          >> LINK3.DAT
  158. echo ANSI17+           >> LINK3.DAT
  159. echo XMODEM+           >> LINK3.DAT
  160. echo RBBSML+           >> LINK3.DAT
  161. echo BDRIVEC2+         >> LINK3.DAT
  162. echo PC-NET+           >> LINK3.DAT
  163. echo 10-NET+           >> LINK3.DAT
  164. echo RBBSUTIL+         >> LINK3.DAT
  165. echo RBBSDV+           >> LINK3.DAT
  166. echo GIVEBK31+         >> LINK3.DAT
  167. echo RBBSHS+           >> LINK3.DAT
  168. echo BASNOV+           >> LINK3.DAT
  169. echo FOSSCOMM,         >> LINK3.DAT
  170. echo RBBS-PC,          >> LINK3.DAT
  171. echo NUL,              >> LINK3.DAT
  172. echo D:\QB3\BCOM30.LIB /STACK:2048 /EXEPACK >> LINK3.DAT
  173.  
  174. LINK @LINK3.DAT
  175.  
  176. :CCompile
  177.  
  178. if not exist CONFIG.BAS goto End
  179. if not exist CNFG-SUB.BAS goto NoCSUB
  180. if not exist CNFG-VAR.BAS goto NoCVAR
  181.  
  182. echo Compiling CONFIG.BAS...
  183. D:\QB3\QB CONFIG.BAS,CONFIG,NUL,/O/E/C:4096/S;
  184. echo Compiling CNFG-SUB.BAS...
  185. D:\QB3\QB CNFG-SUB.BAS,CNFG-SUB,NUL,/O/E/C:4096/S;
  186. LINK CONFIG+CNFG-SUB+RBBSUTIL+FOSSCOMM,CONFIG,NUL,D:\QB3\BCOM30.LIB/EXEPACK;
  187.  
  188. goto End
  189.  
  190. :NoQB
  191. echo Missing D:\QB3\QB.EXE... Aborted.
  192. goto End
  193. :NoLINK
  194. echo Missing D:\QB3\LINK.EXE... Aborted.
  195. goto End
  196. :NoBLED
  197. echo Missing D:\QB3\BLED.EXE... Aborted.
  198. goto End
  199. :NoGWCOM
  200. echo Missing D:\QB3\GWCOM.OBJ... Aborted.
  201. goto End
  202. :No10
  203. echo Missing 10-NET.OBJ... Aborted.
  204. goto End
  205. :NoANSI
  206. echo Missing ANSI18.OBJ... Aborted.
  207. goto End
  208. :NoBD
  209. echo Missing BDRIVEC2.OBJ... Aborted.
  210. goto End
  211. :NoFOSS
  212. echo Missing FOSSCOMM.OBJ... Aborted.
  213. goto End
  214. :NoGIVE
  215. echo Missing GIVEBK31.OBJ... Aborted.
  216. goto End
  217. :NoPCNET
  218. echo Missing PC-NET.OBJ... Aborted.
  219. goto End
  220. :NoQBARCV
  221. echo Missing QBARCV7.OBJ... Aborted.
  222. goto End
  223. :NoDV
  224. echo Missing RBBSDV.OBJ... Aborted.
  225. goto End
  226. :NoML
  227. echo Missing RBBSML.OBJ... Aborted.
  228. goto End
  229. :NoUTIL
  230. echo Missing RBBSUTIL.OBJ... Aborted.
  231. goto End
  232. :NoXMOD
  233. echo Missing XMODEM.OBJ... Aborted.
  234. goto End
  235. :NoHS
  236. echo Missing RBBSHS.OBJ... Aborted.
  237. goto End
  238. :NoNOV
  239. echo Missing BASNOV.OBJ... Aborted.
  240. goto End
  241. :NoPC
  242. echo Missing RBBS-PC.BAS... Aborted.
  243. goto End
  244. :NoSUB1
  245. echo Missing RBBSSUB1.BAS... Aborted.
  246. goto End
  247. :NoSUB2
  248. echo Missing RBBSSUB2.BAS... Aborted.
  249. goto End
  250. :NoSUB3
  251. echo Missing RBBSSUB3.BAS... Aborted.
  252. goto End
  253. :NoSUB4
  254. echo Missing RBBSSUB4.BAS... Aborted.
  255. goto End
  256. :NoSUB5
  257. echo Missing RBBSSUB5.BAS... Aborted.
  258. goto End
  259. :NoRVAR
  260. echo Missing RBBS-VAR.BAS... Aborted.
  261. goto End
  262. :NoCNFG
  263. echo Missing CONFIG.BAS... Aborted.
  264. goto End
  265. :NoCSUB
  266. echo Missing CNFG-SUB.BAS... Aborted.
  267. goto End
  268. :NoCVAR
  269. echo Missing CNFG-VAR.BAS... Aborted.
  270. goto End
  271. :NoBCOM
  272. echo Missing D:\QB3\BCOM30.LIB... Aborted.
  273. goto End
  274.  
  275.  
  276. :End
  277.